Top 10k strings from 3D Plotter (1984)(Ziga Turk)(si).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 CALCULATION
   1 zgm=(fzgm-127
   1 yp=l3*x+m3*y+n3*z*ze
   1 xp=l2*x+m2*y
   1 with visability
   1 spm=(fspm-127
   1 risanje z mrezo
   1 fzgm=(zgm*mer+127
   1 fzgm=(fzgm
   1 fspm=(spm*mer+127
   1 fspm=(fspm
   1 draw parameters
   1 calculation of plot 
   1 calculat. for rotation
   1 c.s. parameters
   1 PRESS CONTINUE
   1 PLOT & hidden line
   1 From y=";yf; " to y=";yt
   1 Enter function
   1 ;'"   O P T I O N S
   1 ;'"   3D: Z=Z( R(X) )
   1 ;'"   3D plotter
   1 ;"Z AXIS EXPANSION";ze
   1 ;"With hiding invisable parts
   1 ;"UNIT='PIKSELS' >";en
   1 ;"ORIGIN OF COORDINATE SYSTEM
   1 ;"COORDINATE SYSTEM ROTATION ANGLS";"25,-90 and 70 sugested"'K(1
   1 ;"   3D:  Z=Z(X,Y)
   1 3D-GRAPHS    z=f(x,y)  
   1 3D PLOTTER
   1 *(fzgm>255
   1 )*fzgm+255
   1 (iy+yp*en+.5
   1 (ix+xp*en+.5
   1 '" r RUN  [ you can hit yust enter
   1 '" f functon input"
   1 '" 2 to draw 2D function"
   1 '"   2D: Z=Z(r)  [ testing mode ] "
   1 & LIST 1060 for 
   1 "Z axis expansion ( z=z*";
   1 "Web density according to the    function > ";
   1 "Web density according to
   1 "WEB DENSITY ACCORDING TO THE    FUNCTION (x,y) >";stx,,sty
   1 "R from ";spm;" to ";zgm 
   1 "NAME:";b$:
   1 "Line density according to the   function > ";
   1 "How many pixels is a unit ?";mer
   1 "From x=";xf; " to x=";xt
   1 "FINISHING AT z=0 (y/n) >";q$
   1 "F(r)=";f$:
   1 "'y' of c.s. origin (0-175)>";
   1 "'"f(x,y)=";f$:
   1 " s START drawing"
   1 " d draw parameter input"
   1 " c coordinate system input"
   1 " & when drawing finished:
   1  z-COPY,s-SAVE,e-EXIT"
   1  in all inputs here ]"
   1  in 256*176    (x,y)> "'ix,iy
   1  function >";stx
   1  f(r) = ";f$
   1  by Turk Ziga  "
   1  (y/n)>";d$